www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/chklogin.asp

    <!--#include file="mdb.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');this.location.href='login.asp';</script>")
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');this.location.href='login.asp';</script>")

response.end 
end if
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
yl_time=now()
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="" then
Response.Write ("<script language=javascript>alert('表单填写不完整！');this.location.href='login.asp';</script>")
Response.End
end if
if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("yl_time")=now()
rss("yl_intime")=now()
rss("verity")=0
rss("zhang")=0
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
Response.Write ("<script language=javascript>alert('你的网站信息已经成功提交！正在进去代码页面请做好我站连接后自己点一次,我们会优先审核有来路的网站！');this.location.href='index.htm';</script>")
Response.End
end if
end if
%>